home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue36 / Imagelst / OverlayForm.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-04-05  |  1.2 KB  |  60 lines
  1. unit OverlayForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TMyForm = class(TForm)
  11.     ImageList: TImageList;
  12.     ImageType: TRadioGroup;
  13.     procedure FormPaint(Sender: TObject);
  14.     procedure ImageTypeClick(Sender: TObject);
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   MyForm: TMyForm;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. const
  30.   OverlayNumber = 0;
  31.   MainImage = 0;
  32.   OverlayImage = 1;
  33.  
  34. procedure TMyForm.FormPaint(Sender: TObject);
  35. const
  36.   itMain = 0;
  37.   itOverlay = 1;
  38.   itCombined = 2;
  39. begin
  40.   case ImageType.ItemIndex of
  41.     itMain: ImageList.Draw (Self.Canvas, 10, 10, MainImage);
  42.     itOverlay: ImageList.Draw (Self.Canvas, 10, 10, OverlayImage);
  43.     itCombined: ImageList.DrawOverlay (Self.Canvas, 10, 10, MainImage, OverlayNumber);
  44.   end;
  45. end;
  46.  
  47. procedure TMyForm.ImageTypeClick(Sender: TObject);
  48. begin
  49.   // Draw the requested image (actually done in OnPaint).
  50.   Invalidate;
  51. end;
  52.  
  53. procedure TMyForm.FormCreate(Sender: TObject);
  54. begin
  55.   // Register the overlay.
  56.   ImageList.Overlay (OverlayImage, OverlayNumber);
  57. end;
  58.  
  59. end.
  60.